home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / menu2.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  812 b   |  21 lines
  1. ;; Menu options
  2.  
  3. (pack (menubutton '.mbutton :text "Menu Button1" :menu '.mbutton.menu))
  4.  
  5. (menu '.mbutton.menu)
  6. (.mbutton.menu 'add 'command :label "Open" :command (lambda () 
  7.                               (display "open\n")))
  8. (.mbutton.menu 'add 'command :label "Close" :state "disabled")
  9. (.mbutton.menu 'add 'cascade :label "More -->" :menu '.mbutton.menu.more)
  10. (.mbutton.menu 'add 'separator)
  11. (.mbutton.menu 'add 'command :label "Exit" :command (lambda () 
  12.                               (display "exit\n")))
  13.  
  14. (menu '.mbutton.menu.more)
  15. (.mbutton.menu.more 'add 'command :label "Get"    :command (lambda ()
  16.                                  (display "get\n")))
  17. (.mbutton.menu.more 'add 'command :label "Put"    :command (lambda ()
  18.                                  (display "put\n")))
  19. (.mbutton.menu.more 'add 'command :label "Rename" :command (lambda ()
  20.                                  (display "rename\n")))
  21.